z 
1 1 
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الحعطوه الأول 
نعلص کیف نہنع aمaكûaj Notepad‏ ghiaرûi‏ 
إا u ûugد du Jlgoيaلا lau‏ 


من إعداد : خالد السعداين 


ي 
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بسم الله الرحهمان الرحيم 


تحية عاطرة لك أحي الفاضل/ أخحن الفاضلة على وفائك هذه السلسلة التربوية الهادفة» ال لا نروم من 
ورائها لا مالا ولا حاهاء فقط بسمة نطبعها على تغرك ومكانة لنا نشغلها في قلبك» ولا نريد هما تحقيق أهداف 
دوب ماد ار ما رل ر ع ارک لاحات بع م قا ا اه جار ی ول کات م ی 
فالهدف أسمى من الوسيلة... و كيف لا يسمو الهمدف وهو هدف شريف و كيف لا ترقى الغاية وهي غاية 


أحی الفاضل/أحي الفاضلة: 
في هذا الحزء من السلسلة سنرى إن شاء الله كيف نقوم بإبداع مذكرتنا الخاصة بكل مزاياها وخحصائصهاء 


س قدر اا تطا ع على إيضاح جيع النقط بالشرح والصورة آملين أن نكون عند حسن الظن وأن يلقى 
هذ العمل المتواضع رضاكم. 


هذا الدرس موجه إلى المبتدئين والمتوسطين ولمن يطمح إلى OT ERE BE‏ 


حن لا نطيل عليكم سنكتفي هذا القدر من التقدعم» دون أن نغفل عن تنبيهكم إلى تنبيهنا قي حال وجود 
أحطاء ف الكتاب» أو ملاحظات أو تساؤلات وما إلى ذلك» وسنكون مدينين لكم ف إثراء هذه السلسلة» 


ودام لكم البشر والفرح» وهيا بنا لنرسل الخطوة الأولى على ب ركة اللّه. 


خالد السعدای 


4 
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"یا أیها الین أمدوا افوا الله و قولوا 
قولا سدیدا. صلخ لکم اعمالکم و عفر لکم 
دنوبکم ومن یط الله و رسوله فم فار 
:فورا عطيما" 


الأحزاب :70 و71 
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للمراسلة من أجل طرو الاعلراعان والعاا حطان 


واللسا uan ü‏ لکه عواسا الالکار وس : 


ص 
۵ 


Khalid ESSAADANI@Hotmail.fr 


بست الله على بر كة الله 
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30 Page de dëmarrage - Microsoft Visual Studio 
Fichier Edition AffichağgEg Outils Fenêtra ? 
EN REIN. EEN 

Structure ... w HJ X | Page de dêmarrage E 


2 

AcUn Êlêrmenk ã = 

afficher pour le Nouveau projet ا‎ 
darcumenE 


sêlertionnê. E NET Framework. 3,5 أ‎ E 


ll: Yisual Basic Modêëles Y¥isual Studio installês 
Windows 


د 


El a a ê B1 1~ 


Explarateur de sol... w HMH * 


(El Application Windows Forrns EABibliothëque de classes 

[E] ûpplicatian yyPF Fz Application de navigateur WPF 
Application console ge Bibliothêque de contrûles personna..., 
[ê] Bibliothêèque de contrûles utilizateu,,, [Fe] Projet wide 


(iE service Windows El Bibliothèqııe de contrûles Windows, 
E: Yisual C# 
#- Autres Lypes de projets Mes modpéles 


Rechercher des modèles en ligne... 


Projet de crêakion d'une application avec une interface ukilisateur Windows {,NET Framework 3,5} 


Hom : RotePad 
Emplacement : | Li Documents and Settings The LORDIMes documentsiYisual Studio ZODOSProjects 5 
Mom de solution : | MotePad Lrêer le rêpertoire pour la solution 


Arctualitês de Yisuıal Stııdio 


Nous ¥ous remercions d"utiliser 
Yisual Studio 


dq Explorat... Br affichag... 


۳١ Liste d'erreurs| BE Sartie| 


mardi 15 mars 2011 


'J dêmarrer 1 * fs Projects 90 Fage de dêm: j - Microsoft ,,, E IR 1154 


بعد أن تسمي مشروعك وتحدد مسار الحفظ يحق لك أن تضغط على الزر ")0" وأنت مرفو ع الرأس» لأننا 


ار 


بعد الضغط سيظهر لك هذا الشكل: 
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Fichier Edition AfFfichağge Projet Gênêrer Dêboguer Donnêes Outils Fenêtre ? 


8% NotePad - Microsoft Visual Studio 


j Debug + ûn CPU +> | [filter 


ER‏ ا ب ل ا 


ut 


ewer"! ا ا ا 1 أ‎ Er Ha Hh 3 TF Q4 I # أ‎ ۲ LL 
eg 4 f ): Hg TUE HF س ای ہے ا اک کے‎ E ۹ ا‎ 1 =| 
E ET TO OOTY Rens E Folch e E N ET SEO ا ای ااا ی‎ 


„ Formi.¥wb [Design] Page de dêmnarrane 


TT de solutiû,., w HM 3 


ی ا EE‏ 


: EE Form1 : | ٤ 2 ia ‘hotePad' (1 projet | 
ا‎ Û. (3E NotePadl 

-- [SA] My Projert 

< E] Forml.vb 


Tous 1 Windows E‏ ا 
lk Painter‏ 

e Background warket 
gH Bindinalawigatar 

BindinğSource‏ ا 

Button 

LheckEox 
LheckedListBox 

E1 LolarDialag 


Eg Afichage : ۴ آ‎ 


FJEzxplorateu... 


Propriêtês IH 


Formi1.¥b ا‎ du fichier < 
E Damainl lpOawin 


I} ErrorProwider 


iê] EventLog 
و‎ FileSystematcher 


I A AvarıkÊ 
Action de gên Compiler 
Loapier dans lE Me pas copier 


Espace de nar 


Ss 


‌ FolderBrowserGialag 
[a=] FontDialog 

[| sraupBox 
HelpPravider 

A HScralBar 


aj ImageLisE 
ETN. ET poke... ا‎ 
۳ Listed errelurs| E E] sortie 
Prêt 


util person 
El Divers 1 
hemin gf 


Horn de 


| AyanıCÊ 
ا‎ 
2| SEU, 


dëêmarrer E lë Images lë Librairies 1 Step_Forward - Mic... p0 NotePad - Microsoft, ., 


1. هذه القائمة تضم كل الأدوات الى نحتاحها من أحل بناء مشروعنا كالأزرار و مربعات النصوص 
وغيرهاء إذا لم تظهر عندك فيكفيك أن تضغط على ×+ا۸+اء) أو الذهاب إلى القائمة أعلاه 
Affichage‏ و ژر .Boîte è outils‏ 

2. هذا هو الفورم الذي سنضع عليه الأدوات اللازمة لبناء المشرو ع وبمكنك إضافة العديد من الفورمات 
إل مشروعك كما سنرى فيما بعد إن شاء اله وعكك تغيير مقاسه عبر مساك الروايا وحذما آو هن 


حلال قائمة الخصائص رقم 4. 


nm | ooo | 


ar abIC oran 


f 


3. قائمة المشاريع» وتضم كل المشاريع المفتوحة ومكوناتما من فورمات وملفات وغيرها. 


4. قائمة الخصائص: وتحتوي على حصائص الأداة ال نحددهاء ومن خلال هذه النافذة يمكننا تغيير اللون 


والخلفية و الخط وباقي الخصائص. 


بعد هذه الحولة الصغيرة» سنقوم ببناء الفورم اللازم لبرنامج .NotePad‏ وھذە صورة 2d4‏ PعNot‏ المرفق مع 


: Windows 


WF Sans titre - Bloc -notes 
FEichi=r Edition Format _AFFichage 


إذا ما تأملنا صورة البرنامج سنجده يتكون من عنصرين رئيسيين: 


( Fichier, Edition, F0] "3t, ..( القائمة: تضم القوائم الرئيسية‎ .1 


2. محتوى المذكرة: وهو عبارة عن مربع نص كبير. 


7۳ 


arabic formation 


( ا 


ا فل ر ك ان اناع ررم ال ا ار اجس مه بق القیي سف الارن آذ اقات 


وإ مها ما٣‏ اكئMenu‏ وذلك بالضغط عليها وجرها إلى الفورم: 


MenuStrip 
Version 2.0.0.0 de Microsoft Corporation 
tomponenik 


Affiche des commandes et des options d' application 
grolıpêes par forrctionnalibé. 


m1 


1. اذهب إل قائمة الأدوات واحتر ما٣ MenuS‏ و جره إلى الفورم. 
2. ستلاحظ ظهور قائمة فارغة أعلى الفورم. 
3. قم بالضغط عل الخانة الأولى من القائمة واكتب اس مها تم انتقل إلى باقي الخانات الرئيسية. 


4. اضغط على كل حخانة رئيسية وزودها بالقوائم الفرعية. 


Ll س‎ 
ا‎ 
غ‎ | 
" Form'1 5 
ا 3ا‎ 
1 9 
1 
زت‎ 2 
TENT 
z2 
سب‎ 
ا‎ 1% 
ا‎ 
ع‎ . 
+H 
ET 
TT : 
۴3 
® Far 
ن‎ SM Formî1 
Fichier Edition Format Aûffichage 7 ع‎ - e 1 
Ernregistr 
3 
impr 
k 
LJ 1 
ا ا‎ 
2 
0e 
mm | momo 


1 


اء 8 


Oi OÛÎ ا‎ 1 UI ÎI IGLIÛUÎ i 


اة لاشو نات اللصاحبة للقوائم الفرعية فيمكنك إضافتها عبر تحديد القائمة الفرعية»ء والذهاب إلى علبة 


بالنسبة للقوائم الرئيسية والقوائم الفرعية الي سنضعها قي برناججنا فهي كالتالي: 


1. Fichier 

. Nouveau 

. Ouvrir 

. Enregistrer 

. Enregistrer SOUS 

. Imprimer 

Quitter 

Edition 
.1. Annuler 

. Rétablie 

. Couper 

. Copier 

. Coller 

. Supprimer 

. Rechercher ما‎ 

. Remplacer AR EER 

. Heure/Date ۔ الو قت /الحاو يح‎ 
3. Format 
Lg REL AULOMaLGRETA AIOE TO CE E E 
3.2. Police 3 E 
3.3. Couleur 
3.4. Arriére plan 
4. Affichage 
4.1. Barre d'état 
5. ? (aide 
5.1. A propos 


EEE‏ و 


DN 


mm | ooo | 
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الآن أتوقع منك أن تكون قد قمت باللازم وسميت القوائم الرئيسية و الفرعيةء إذا كان الأمر كذلك فهيا بنا 


لتتمة العمل وإن كان العكس فلا بأس بذلك» وما عليك إلا إعادة الفقرة من أوها فيبدو أنك تحاوزت إحدى 


السطور !!! 


اتتهينا من وضع الأداة الأولىء والآن سننتقل إلى الأداة الثانية ال قلنا عنها أَهُا مربع النص (إن كنت تتذكر 


معي ام ال ا ايضا بعض السطور!!!) م 


قي قائمة الأدوات سنجد مربعي کر آحدهما یسمی ۲e×(0×‏ و الاحر RichTextBOX‏ « لکن أفضل احتیار 


الان اة الاس اا هوو ن د جرب 


سنقوم بجذب الأداة Rich ۲e×80×‏ إل الفورم» ونغير طوهما وعرضها حن تصير هكذا : 


Forrmn 1 
Fichier Edition Format AfFFichageE 


0اا د 
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+ * مھ 


ومن نافذة الخصائص نختار الخاصية ۸٣٥٠٥١‏ ونقوم بتحديد الزوايا الأربعة: 


0 NotePad - Microsoft Visual Studio 


Fichier Edition #AFfFichağge Projet Gênêrer Dêboguer Donnêes Outils Fenêtre ? 


Any CPU Filter‏ + 8 ا ب ا ب( EE"‏ د 


Page de dêrnarraqE e 


„ Form1.¥b [Desiqn]* Explarateur de solution... w HA %K 


Al SMELELELA 


ر 
1 


aj ImageLisE 


1 RE Form1 Mx | [a ا‎ ‘MWotePad' 1 projet) | 
A LinkLabe 5-- (el NotePad 
= ListBox Fichier Edition Format #Affichage i Bg My Pr jet 


Lisi a. a. . ا‎ aE `< E] Forml.vb 


MaskedTextBox 

a Menustrip 

[ÛÎ MessageQuzue 

El Manthlalendar 

aes] MokifyIcor 

| MuUmEericllIpDawr 
| DpenFileDialag 

HH PageSektupDialag 

i | Panel 

La] Ferformancecounter 
laê] PicturaBox 

E! PrintDialog 

„û PrintDocument ا‎ 


Explorateu,.. ACTS ۳‏ چ 


Propriêtês - HI 
Rich TeHtBok1 5Y,sterm,. Windom < 


8 PrintPreyigwEantral 
إا‎ PrintPrewiawDialag 
وا‎ Process 

mel ProgressBar 

E Propertytarid 

{*) RadioButton 

8 Rich TextBox 


(Marne) RichTeHtBOoH 
menerateMerm TFUE 


الل بعر اورم رعرضپا رفا 


MenuStrip1‏ ت 


Gack. 
Location 


Î Sa¥eFilEDialag mas 
| Anchor 
Gêfinit les bol 


1 


auquel nı Eo 


gê SerialPort 
PAN aw ie 
cpl, 


| E> FE E e 
i Liste erreurs El sortie 
Prêk 


déêmarrer Ê 


الآن كني أن أهنغك س اتتهينا من ناحية العرض وحان وقت إدخال الشفرات» كي يصير البرنامج حياء 


لأنين أراه الآن جثة حالية من النبض. 


ا گل بر کال 


12 


کے 
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لالإنتقال إلى نافذة تحرير الكود اضغط مرتين على الفورم» وستجد نفسك أمام هذا الشكل: 


9F NotePad - Microsoft Visual Studio 


Fichier Edition #ûFfichagad Projet  Gênêrer Dêboguer ÛDonnêes Outils  Fenêktrs ? 


+> Any PI 


1" 


ر 1 t+ ESE li‏ ا E EE‏ 
ذخا ضا ا اتا واا ا ااا ا چ رض ا ا ا ا د وات ا تلات ن ا ت ا اد الاد اتا اک کڪ ڪا ااا 


BEoite ã outils - H1 ا‎ 2 Forml.¥b [Design]* Page de dêérmarrane E E de soluktia,.. E 4 


اعاتا لر 

ky LinkLabel Fichier Edition #Affichagd Projet  iênêrer Dêbogquer Donnêes Outils Fenêtre ? 

E ListBox اس‎ Hl 2 ا‎ 1 E EE E2 = > Any CPL 
E LisE'Yiey . اک و کد س ج س‎ 

2 EEE PT CR EES 


2 Explarateur 

ا 
lad Salukic‏ 
Nc‏ 3 0 


اا 


Manthcale Il n'existe aucun contrêle 

MotifyIcon ukilisable dans ce groupe, Faites‏ ا 
glisser un êlêÊment ici pour‏ 

Hl Mumericllp 'ajouter ã la boîte ã outils. 


Z| openFilebi 
= PageSeEup 
jj Panel 

te Performanr 
PictureBox 
E PrintDialag 
ا‎ PrintDocu 
ا‎ PrintPrewim 
"| PrintPr ewe 
Lal Process 
u J ProgreEssBz 
FN Property 
(®) RadioButto 
BA RichTextBc 
Ê] saweFileDiz 
g# SerialPort 


E Public Class Formi1l 
Private Sub Forml Load{[BFYal sender As RPBystem.Vhbhject, ByY¥al e As PBystem. Eve 


Ena 3Sukطb‎ 
Enda TIasas 


| mii و‎ 
ES 
ا‎ Liste derte 

Prêt 


dêmal 


هذه هي نافذة تحرير الشفرات» سأفترض الآن أنك على اطلاع بأساسيات البرجة من متغيرات وجالات الأسماء 
وما إلى ذلك» فإن كان افتراضي خاطنا و كانت هذه أول جحربة لك مع البرجة» فأنصحك بالعودة إلى الجزء 
الأول من السلسة "سبيلك المخحتصر في السي شارب" لترى كل هذه المفاهيم نظريا لأن لغة البرجة مختلفة» 
وبعد ذلك عد إلى هذه الفقرة لتتابع معنا... لا تخف سننتظرك ! 


بقينا الآن وحها لوجحه» وسنحاول رفع الإيقاع شيعا ما لأن البطء سليل الفشل» سنقوم باستيراد جال الأسماء 
عارك وهذا المجال يضم كل فئات إدخال المعطيات وإخراحهاء والتعامل مع الملفات النصية» وسيكون 
تعاملنا مع فئتين مهمتين با لخصوص: 
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00ا ت 


arabic formatlon 
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Stream Reader ®‏ : وهي فغة متخحصصة ق قراءة الملفات. 


Stream Writer‏ : وهي فغة متخحصصة في تخزين المعطيات قي الملفات. 


ولتغيير حصائص الخط واللون سنحتاج کائنین من gi‏ غ FontDialog , ColorDial0g‏ . 


Couleurs 


LCouleurs de baze : 


Style : le 
| ع‎ Standard 


Tempus Sana ITE E 


(F Times New Roman EE: 
TH Traditional Arabic Gras tallqE 


FT TT M5 


Effetz i pETEL 

[Ll Barrê 
AãBbTyZ 

LI Soulianê ا‎ 


Seript : 


Occidental n آ‎ 


i 
7 
1 


mn rT 
IT WEEN" 


ا 
RE‏ 
EN‏ 
Bn‏ 


mH 
mm 
_ 
L_ 
El 
_ 
1َ 
LL 


Dêfinir lea couleurs personnalisêes è> 


ColorDialog 


FontDialog 


ولفتح ملف وللحفظ سنحتاج کائنين من gi‏ غ .SaveFile Dialog , OpenFileDial0g‏ 


5 - Enregisirer sous 
Fegander dane: 8 Blweau Eniêgizlregî danê : 1B Bureau 


0. (E Favaris réseai 
Mes docurnerls 
rêcenis 


Hom du fichier : 9 Hom du fichiet : | 


Poe de avail Tipe 


Foshe de haval Frchiers dE pê ! Documents T' Teel" Tl Documents Terlel", Tl] 


SaveFileDialog 


Open ETT 
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واللآن سوف ننشيء هاته الكائنات وسنجعلها عامة حن تعرف على مستوى الفغة كاملة أي سنعلن عنه أسفل 


class‏ icاPub‏ مباشر5: 


a Nal SAGES ESAS 
lele E o Gea ll 


DIR CHEMIN GETING E E N O E O a NES 
Dim Ofd As New OpenFileDialog 

Dim Sfd As New SaveFileDialog 

Dim Cd AS Nev ColGEDIa41l0G 

Dim Fd As New FontDialog 

Dim SR As StreamReader 


Dim SW As StreamWriter 


00 0 ا ا ا0 0 ا ولا ا اا ا ص ا ا 
System.EventArgs) Handles MyBase. Load‏ 


EE CUD 
ENG ClaSS 


و بإنشاء إجراء لحفظ البیانات ولنقم بتسمیته ()۲۲۵۲ءآع6 ۴"۲ وسنضعه مباشرة تحت الإعلان : 


ENTE ISTTEE) 

GW = New StreamWrıter (Chemin) 
SM WEILE(MeE RichTEeEXLEBOXL Tex) 
SW Close 0O 


SR = New StreamReader (Chemin) 
Nec DN Moo E EST ONO 
SRE LOSS 

ERA SUD 


هذا الإحراء يقوم بالكتابة ني ملف بالمسار "ه۸٤‏ ويضع داحله البيانات الموحودة قي مربع النص نم يقفل 


كائن الكتابة ويفتح كائن القراءة من أحل طبع البيانات في مربع النص. الدالة R2٣۴ ٣٩‏ تعيْ قراءة الملف 
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| 
E Background Worker 
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٣ 
1 


حي النهاية» بعد ذلك نقفل القارئ. باحتصار فدالة الحفظ Enregsitrer‏ تقوم اعات ن ار 


سنعود إلى الفورم باحتيار [”عأءه0 ۴٠۲۳1.۷6]‏ من أعلى نافذة الكود» ثم نضغط مرتين على القائمة الفرعية 
Enregistrer‏ لولو ج نافذة کودها: 


7 NotePad - Microsoft Visual Studio 


Fichier Edition #AfFichage Projet  tênêrer Dêboguet Donnêes Format outils Fenêkre +? 


> Any CPL lê filter 
ف دک | ا ارات ا ا اا ااا ا رچ ت ا کا اا ا ات حن | تاا د | ت اا الد ات اراتا اخ ج لا ا‎ 
a ۴ Explorateur dE... HA #* 


3l Tous les Windows For... | ا‎ 
lk Pointeur ukior 


gH BindingNavigatar . Format _Affichage !: Tapez iri = A] My Project 
Ty BindingSource ا س‎ Farm1.yb 
Button 2 

Checox erer 

LheckedListBox 7 

Eî LoalorDialog آ‎ 

E comboEBox 

tE| ZontextMenuStrip 

j DataGridview 

a] Dataset 

TE] DateTimeFicker 


DirectoryEnkry Propriêtês IH‏ ا 


EA, DirectorySearcher 
| 3 DomainllpDawın 
O ErrorProrider 


| EventLog 
ا‎ FileSystemwyatcher 


EnreqgqistrerToolStrip™l ~ 


Forecolor Contr 
Image E syste 
ImageAligr MiddleZenkı 
E ImageScal Size ToFiE 

Fî FolderBrowser Dialog ImageTrar [_ ] 
FontDialag RightToLel Jo 


[| GaraupBax RightToLel False 
Shoartcutke 


Text EnregistrE 


HelpPrawider 


AIA HSerallBar : 
= MenuSkrip 1 
ê ImageLisk Text 
Le texte ã afficher sur 


aaa Expl... ap, Boke... E lêlêment. 


Liste dierreurs| 5 sortie|‏ ا 


3ا 
2ے × 164 4 Prêt E‏ 


dêëêmarrer 


ثم نقوم بكتابة الشفرة التالية: 


16 


BE LION 


arabic formatlon 


f 


E EE ENTE STL TOOLSET IDMERUILTEM CLIT TEENIE 


SVSTLEML ODETTE, EVAL € 3S CTOSTEMLEVENLATGS) _ HiNlles 
ERTEGISLESGETOOISLEIGMETULLEM.CITCE 


JE CPEMIN > BEEFING ENDL ThE 
OS OR OAD CSO ND ONS DON SS DS MOO CSO en 
GCGheman 3 SrA FI lGName 
Emeg STE 0) 
Ean 
Else 
Er eG EE) 
a e sS 
End Sub 


أمره لا يعنينا حاليا» وسنشرحه في وقته المناسب.والآن تعال معي لنشرح الشفرة: 


نتحقق نما إذا كانت قيمة المتغير ”اص عط فارغة (ر†مص۴.عinاSt).‏ فإن تحقق الشرط فهذا ب يعن أن العطيات 
م يتم ONO e‏ السار لا قيمة له» فنقوم بإظهار نافذة الحفظ (عهاةiا0‏ سه م؟.5f۵)‏ ونتحقق من أن 
الملستعمل قام بالضغط على )0 أي حدد مسار الحفظ آنذاك نحفظ قيمة المسار (۴" 12 ء|ااSfU.۴)‏ ي المتغير 


nemi"‏ و ننادي على الإحراء ٣٠۲‏ اءاعم۲"ع الذي سيقوم بحفظ البيانات ثي المسار الذي تم تحديده. 


قي الحزء هءاع نقوم فقط بالنداء على اللإجحراء ùÎJ Enregistrer‏ قيمة المتغير ۸٠۳١‏ ليست فارغة وبالتالي لا 


يجب أن نظهر نافذة الحفظ من جديد. 


أعتقد أن الأمر صعب الفهم نظرياء ولكنه سهل حدا قم فقط بالتمعن قي المثال وستقف على صدق كلامي. 


| 

1 

| 

الشفرة البرتقالية هي الي نكتب » أما الباقي فيتم إنشاؤه تلقائيا بعد الضغط مرتين» ولا بمكننا شرحه الآن لأن 
ي : 

| 
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اللآن سنقوم بتحديد نو ع الملفات الي يحب على برناججنا حفظها وفتحهاء وسيكون ذلك تي حدث 
Form_Load‏ ي بالضغط مرتين على الفورم: 


EI OEE UTE OEMUGESSON EG SERIES TED COBS OSCE ES 
System.EventArgs) Handles MyBase.Load 
SEG Ra lag e DOES ESSE Haa ESE 


OE Ela lateieiss DOETRSMEES Resa CSTE ESSE 
MIME SUID 


الخاصية ۴it‏ للکائنىن OpenFileDialog‏ و SaveFileDialog‏ تمکننا من تحدید وفلترة آنواع البيانات الي نريد 


التعامل معهاء وما دمنا سنتعامل مع ملفات نصية» فسنر كز على الإمتداد ا×١.‏ 


سننتقل الآن إلى القائمة الفرعية امه" وكالعادة سنقوم بالضغط مرتين عليها من أحل ولوج نافذة الكود 
الخاصة بهاء بعد ذلك سنكتب هذه الشفرة: 


PEIVALS TUG NOUVEAUTOOLSTELOMENATE OR CLTECKBV AL Cene, AE 
SVSLEM:ODTIECE, BV AL EGE EE SGUSLTEM.EVENLAEGOS), Hanlles 
NOUVEAULOOICEEIpMENDILEM CIICkE 


TEI RICHIE LEOSL TOT CS TTI ELLY ThE 
Dim. Reponse As SLEINnG, = MsGBOx(TVoulez VOUS; enregsultrer les 
mMoQdIEICATIONS., MESTEOS LVL TES aANCOL, Nouveau) 
lf Reponse = 6 Then 
TE Chemin CEE ETT TENN 
lT TGA SHOUD, Nl oI DIAC CULL OC TCT 
Chemin = Sfd.FileName 
ENrEeE ISI rEeT () 
Else 
Enregistrer () 
EG IE 
EA IR 
ELself Reponse = / Then 
Me.RichTextBox1.Clear () 
ETE 
Ed TE 
nG Tule 


L0‏ س 
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للمستخدم کا بیانات يازم حفظها. و سنحفظ قيمة الرسالة في متغير نصى اسنه عهء,مممR‏ الذي له 


اة و 


اة فیم. 
 Reponse=6‏ 77 تعن أن اللستخدم ضغط على "ءع۷]أں0" 
Re ponse=7‏ 7 تعن أن المستخحدم ضغط على N0"‏ |۸0۸" 
وما عدا ذلك فيعيٰ أن المستعمل قام بالضغط على اعء"ج) 


إذا قام المستعمل بالضغط على الزر أ أي "أريد حفظ البيانات الحالية قبل إنشاء ملف جديد"» حينها نتحقق 


من قيمة المسار ”هط فإن كانت فارغة فمعناها أن الملف الحالي م يحفظ بعد فنقوم بإظهار نافذة الفتح 
وننادي على إحراء الحفظ في المسار الذي تم تحديده» وإن كانت قيمة المسار مليئة فيعن ذلك أن الملف الحالي 


سبق حفظه» فننادي فقط على الإحراء ۲٤٣]ءاعه۴"۲‏ دون إظهار نافذة تحديد مسار الحفظ. 


أما إذا قام المستعمل بالضغط على الزر ٥١‏ من الرسالة أي "لا أريد حفظ البيانات الحالية » أريد فقط إنشاء 


ملف حديد فار غ"» آنذاك ستقوم فقط .سح خحتوى مربع النص دون أن نقوم بحفظ البيانات الحالية. 
الأمر بسيط للغاية» حاول فقط أن تتملى طلعة الكود» وسترى أن الأمر سهل يستلزم قليلا من التمعن. 
والآن سنقوم بإنشاء شفرة فتح ملف موجود مسبقا. 


كالعادة اضغط مرتين على القائمة الفرعية ٣أ٣۷‏ 0 » واكتب الكود التالي: 
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ECVE CUD COUMELETIOMSLE pMEeNULEOM CC LLCKEV IL Sede AS SEEMS CECE, 
BVVal € As SvVSLEeEM. EvenLlArFOS) Handles OuUvEIrTTOOISEEISMenulltem. Click 


lf Of SHOWDIalog > Windows. Forms DialoGgkKesUllL OF Then 
Chemin = Ofd.FileName 
SR = New StreamReader (Chemin) 
MERIC TEXT BOKO = SRIRE TITER 
SECO) 
ERA TE 


BE Clo 


كما ترى قمنا من إظهار نافذة فتح ملف (عهاهاك۷ه0۴۵.5۸) » ونتحقق من أن المستخدم قام بالضغط فعلا 


على الزر ۲٣اه‏ بعد تحديد الملف المراد فتحه. 


بعد ذلك نحفظ قبمة مشار ف المتغير النصي Chemin‏ . نقراً ات اا بالإإعتماد على القارئ S۴‏ . نضع 


حتوى القارئ في مربع النص بنفس الطريقة ال رأيناها في أواحر إجراء الحفظ ثم نغلق القارئ. 


والان هیا بنا إلى شفرة الزر sںه؟‏ ٥٣†ءع ۴٣۵‏ وهو أسهل ما يتصور: 


PEI E SUDDENTEGOLEEESTSOMETOOLSTEI MET IEEMUCLLCKCEV ALL SENIET AS 
SuSE OBE, Bal EG AS CSTE EVENLATGS) Hii Gles 
Entegns kre Solus TOOLS et eMenu LEem Clie 
TE STE GASROMD a OES IRS OMS ROEM SADIE LOGREeE SLE OR ThE 


EEE gS ERE 
ERI TE 
ne Ele 


نقوم بإظهار نافذة الحفظ. و بعد أن يبحدد المستخحدم مسار التخحزين» ننادي على الإجرlء Enregistrer‏ 
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بالنسبة لشفرة الخرو ج هااا فهو كالتالي: 


CTI TE U UOULEL EET LEICESTER CLIC E SERE 
SMSO OBESE BVE ASST SEEM EEVENE AEG SNM HaMQlLES 
OIE NENE TIOMMSANONE  OTeENE 


Me.Close () 
EEE SS 


الدالة ()عء٠اع‏ تقوم بإغلاق الفورم الحالي. 


بالنسبة لشفرة الطباعة» أي القائمة ٣٠٣۲م‏ "| فهو كما يلى: 


FD. DOCUMENT = PEGG 

ED EIT GELTING - Ec EEL ELT IAMEIS 

PD.AllowSomePages True 

EBDE SOD le Mineo Si Hozems e Dia lole Re SG EELORK GS Then 
Biel REE) 

ETT 


ولكن قبل ذلك يلزمك الإعلان على المتغيرين ۴0 و ء٤٥۴0‏ في أعلى الشفرة أي مع المتغيرات الي سبق أن أعلنا 


عنها ي الأول بحیث نوع ۴0 هو چهاھ0i ۴i۲‏ و نوع Î PrintDocument ya Pdoc‏ كما يلي: 


CHEMIN AS StEINng 

Ofd As New OpenFileDialog 
Sfd As New SaveFileDialog 
CAS Newa oS loz Dade g 
EFAMAS New EONEDILa log 


SR As StreamReader 


SN TE E SAS MMT ES Iê 
EBD AS ME PEI 
1 PFdoc A NEV FrIINLLO UE 
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ولا تنس استیراد حال الأّماء عہSystem.Drawing.Printi |mports‏ المسۇول عن الطباعة. 


والآن لنشرح شفرة الطباعة: 


PD: DOCUMENL. = PIGC 

ED ErinlEE ETTI EE FEIT cE 

PD.AllowSomePages = True 

E SBD SiO DAA NREL SEE OEMS DL aS Rie SEO Then 
Delos RR) 

End LE 


الکائن ۴0 من نو ع عهاهاط" ۴ بمكننا من اختيار الطابعات الموصولة بالجهاز وكذلك بتحديد مناطق الطباعة 
وعدد الصفحات وعيرها من الإعدادات» وهو يحتاج لى ثيقة خ٣‏ eصumع0ط‏ لطباعتهاء فلذلك كتبنا السطر 


الأول» ويي السطر الثاني نحدد إعدادت وسيط الطباعة» وهي نفسها إعدادات الوثيقة المراد طباعتها. 
الدالة AllowSsomePage‏ تسمح بتفعيل خحاصية تحديد عدد الصفحات في وسيط الطباعة. 

بعد ذلك أظهرنا وسيط الطباعة» وتحققنا من ضغط المستعمل على زر الطباعة )0 » ثم قمنا بعملية طباعة 
ل 

والآن سننتقل إلى القائمة ١٥ا٤‏ والشفرات تشرح نفسها بنفسها نظرا لسهولتها: 


شفرة الإلغاء Annuler‏ : 


TT ND AG LSTTOGL ELI TIL CCE E TL SGT 
SST EME OBI ECE, BU alG GTS ETENLAEGS N Hales 
AMANE TS SS OMe Kemi Clie 


ME RICHEST EOS URES 
ae Ole 


PEE LION 


BE LIOR 
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شفرة التراحع Rétablir‏ : 


ErIVATELSU RelaAGblIIrTTOOLSEEI OMENULEEM  CLTCEIEVVaAL Gender Af 
SST eM. ODI ECE EVAL EGE KS SUSE EVERLAST Handles 
Ré Ea BEDE LOS SEE 1 BME OEE EMC REKE 


E E LR 


شفرة القص ۲٤م‏ uه):‏ 


TFTrivilE UD COUCEETOL GE LOMONULEEMLCLICECES SL SeEvler aE 
SST EM ODI ECE EV GANG ZS CUS EVOL AEGS Ha mOlES 
COMER TOO LS EE EMER TE EC aE 


E E OMED OO OEY 


شفرة النسخ ٣هأمه):‏ 


TTI UR CODLOTTIOCLSEEIOMSMLLEEMECLICECET Il CENET 
SVS EM. ODT ETE BGA LEIS SCUSEEMLETUENTLATGS Hames 
CO EEE TOONS E OMe KESE Ek 


شفر ه اللصق ٣‏ ااه : 


TITLE UMC OLLIETIOCLSTEIGMEDLEEMCC LICE SSE OS 
Sul EM OBDISCC TT Bl GT CECE EGLE S Ho IlaS 
GO TESTO SEET NAS ES OES 
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:Supprimer المسح‎ ٥ شفر‎ 


CITLuILES U OUCGEIMEETOGL LTE LGMONUIE EM CLICK RGA Sol 
SVS TOMEOD IOC, EVAL GEG RS GC TSCEMIEVESNTLAEGS Handles 
SEBE IME ETO SEET MERU EER INCE 


Me.RichTextBox1l.Clear () 


ae Ne 


:Rechercher ھحئl شفرة‎ 


TE OTE TU CTE ETC NETTOOL SEEDS UTED CTI BT EEE 
SVSLeM.ODjSCE, EVVEL € 23 CTS lEM.EVENLATGS) Handles 
E ChEeETC TIOCICTTEICMENUIITEM CLICK 


Sir > UNGCULBOL(LENLIETE léE mol 4 EechertCNeEL 1) 
FOr COMOEEUE AS INLET <> OTO RICMISEXLBOXL. TEST LENGIN 
LE RLERTERTBOR li TELS NBS EEING (COMO GUEST ELE GERN = SCERThEn 


RICRTEXTBOS SELECT IGOR = COMO GUE 
RLleRTexXEBOxXlSeELectionLengithe= SLE LengEh 
E Ol 
ENI TI 
MESSE 


EH MIG 


سنقوم بالإعلان عن متغير امه 5٣‏ في الحيز الذي أعلنا فيه عن باقي المتغيرات العامة» وسيكون نوعه ع آ٣؟.‏ 
في السطر الأول نفتح للمستعمل نافذة لإدحال الكلمة المراد الببحث عنها قي النص» ويكون إظهار نافذة 


الإإدحال بالإإعتماد على الدالة >۲8 uمم|ا.‏ 


e‏ بالاعلان ۲ متغیر مر د رة Integer‏ اسه Compteur‏ الل سيذهب ع بداية ال )0( ا 
اا ا و : 


. Rich TextBox1.Text.Length aتılؤ‎ 
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تم نقوم بتقطيع النص المتواحد قي مربع النص ٠×۲8٥×‏ ۸۲ء۴1 عن طريق الدالة ٣ا٣٤‏ واں؟» ال تنتظر معاملين : 


1. نقطة بداية التقطيع» وهي هنا r‏ uع‌امmهC‏ و ستتغیر تزایديا من أول حرف إلى ماية النص لأننا 
استعمالنا أداة التكرار ٣ه۴.‏ 


2. طول العبارة المراد تقطيعها: وهي هنا نفسها طول الكلمة المراد البحث عنها. 


0 


نو صیح : 
اي إذا کان مربع النضر يضم اللقطع التالي: 


HE! Form1 
Fichiar Editiarı ForrnaE AfFichag#E 1 


Private aub Rechercher Too0lStripMHenultem CIilckE[ByVal sender As System. ObhjeECTE, ByVal e 
STs LEm. EvENLAFHS] Handles Rechercher To01lSTtrEipHenulterm. LIIiCkK 
SLE = InpuUurCtEox[(["Entrer le mot ãڙ‎ Rechercher "| 
Far LomptEeEuUurEr A3 Integer = 0O TD RBRichTeXTEGOxNl. Texlt.LENITEh 
IF FEiczchTEeExNTEOxNl. Text. SUDSLTCEINHILOMPLEUF, SLCF.LENIThHh] = SLE Ther 
RichTexXLEOxX1.SBeEleECLIONSLaArFL = LOoOMPpEEUF 
RichTexXLEOxX1l.SBeEleECLIOnNLENHTh = SLI. LEHNITh 
Exit For 
End IF 
Het 
Ena 5uطb‎ 


فسینتقل المتغیر ٣‏ اعام صت من أول حرف وهو هنا مثلا ۴ إلى ماية النص أي ط» وثي كل مرة سيقارن القيمة 


المدحلة بالقيمة ال يصل العداد إليهاء علما أننا استعملنا الدالة ع٣٣‏ وطن الي ستحدد كل جزء يصل إليه 
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أول النص إلى الحرف الثالث» فإذا لم جحد سينتقل من الحرف الأول إلى الحرف الذي يليه مع زيادة حرفين» 
وهكذا حي بجد الكلمة المطلوبة. 
عند ذلك نقوم بتحديد الكلمة المبحوث عنها ف مربع النص باستعمال دالتين مهمتين: 
6 الدالة ٤‏ ecti0n5†2اهك:‏ تأحذ قيمة بداية التحديد. أي رتبة أول حرف من الكلمة المراد تحديدها. 
© الدالة :Selection Length‏ وا نضع طول العبارة المراد تحديدهاء وتأحذ قيمة طول النص المبحوث 
علنهك. 
إذا لقيت أدن صعوبة ت استيعاب شفرة البحث» فالمرحو مراجحعة هذه الفقرة لأا مفيدة حدا ق عمليات 


:Rechercher Le suivant dlتll دالة الببحث عن‎ 


م نقم بإدراحها في البرنامج» ولكني أحببت عرضها هنا لأني رأيت أن حل البرامج النصية تستعمل هذه 
الأداةء إذا أردت أن تضيفها إلى البرنامج فسيكون ذلك جيداء وإن رفضت فلك ما تشاء لكن ركز معها 
ی ان عات الج 


وهذا هو كود زر البحث عن التالي: 


1 ۶ 
arabic formation‏ 
العداد بطول يوافق طول النص المبحوث عنه. أي إذا قمنا بإدحال الكلمة ۴٠۲‏ للبحث عنهاء فسيبدأً الببحث من 
1 
1 
1 
1 
| 
1 


7۳ 


1 
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PEI VILEC UKE CNET ESOLTANETOGES EE LGMENUTEEMEC LECE Slender 
SVStEM:UODIECTE, ByVal e As System.EventArgs). Handles 
RechercherLeSuivantToolStripMenultem.Click 


Dim f As Integer 

BE SSI CRONE ENE CD SEN Te ONE E N SOTO OEE 
MSGEOS CE) 

lT E THE) 


ME GEOS (PIS dE TE IlLIALS CT MOE LT LE ESCA ILIGORN, RE UNLESS 
de recherche") 
Else 
EN CME CONNEC OM ET 
RICHTeXTEOKXlSelECLIORNLESNGLEH SEE. LENGLR 
End TE 


NS Ms 


رکز معي جیدا» 


8 قمنا بالإعلان عن متغير رقمي ؟ 
6 الدالة |5٣‏ تقوم بالبحث عن نص داحل نص آخر انطلاقا من نقطة بداية معينة» ومعاملات هذه 
الدالة كالتالي: 
0 نقطة البداية: وهي هنا النص امحدد زائد 2 حي يبحث عن الكلمة المماثلة التالية و ألا يعيد 
ل و 
0 النص الأم: النص الذي نريد القيام بالبحث داخله» وهنا في مثالنا هو مربع النص 
Rich TextBOX‏ . 


© النص المراد الببحث عنه: وقي مثالنا الحالي هي القيمة ٣ا5‏ الي يقوم المستخدم بالبحث عنها. 


27 


nm | ooo | 


arabic formatlon 


الدالة ٣5ا‏ تقوم بالببحث عن نص داخحل نص أخحرء فإن م تعثر على شيء» تعيد لنا القيمة 1-» و إن وجحدت 
نصا نماثلا للنص المبحوث عنه تعيد لنا رتبة أول حرف منهء وهذه القيمة الي تعيد لنا في حال العثور على 


للطلوب نقوم بتخزينها ق المتغبر .f‏ 


6ه تم نقوم بالتحقق من قيمة النتغير ۴ فإن كانت تساوي 1-» نظهر رسالة تعلم المستخدم بعدم الحصول 
على نتائج أخحرى. 

6 وإن كانت قيمة المتغير ۴ تخالف 1- نقوم بإظهار النص المعثور عليه بالإعتماد على الدالتين اللتين 
رأيناهما سابقا» وستكون نقطة بداية التحديد هي قيمة المتغير ۴ لأن الدالة |5٤۴‏ تعيد لنا رتبة أول 


٠: مالاحظة‎ 


بمكننا القيام بعملية البحث بالإعتماد على الدالة |۸5٣‏ » وسيكون الأمر مماثلا لشف رة البحث عن 
التالي مع اختلاف بسيط في نقطة بداية البحث» أردنا التنويع في عمليات البحث بغرض امتلاك 
مجم و عة من التقنيات التي قد تفيدنا مستقبلا إن شاء الله 


شفرة اللإستبدال c٤٣‏ ھام Rem‏ : 


قد تفاحۇ إذا أحبرتك أن كود الإستبدال هو نفسه كود البحث مع تغيير بسيط» بحيث عوض أن نحدد النص 


المبحوث عنه» نقوم بتعويضه بالنص الجديد: 
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PLIOCENE LECGTTOGES TE ISMERNOTEENAC ITCRA ES Elven RS 
SVSTEM ODF ECL EVA lor SS SVS TEMLEVENLAEGE N HaANClES 
EFEMLIaAC ETTI TETI MENUITEM CITEEK 


SLI = TniGULBOxX(TENLrEEer l€ molt a Remoglacéer _") 
Dum SErZ AS SITIOS TAOULBOXS LENTTEE la NOUVELLE cChalnEe ") 
Fo  COMGTEEUE AS Intl eget = 1 To RucMlexLlLBOxXLl.Texi .LenGEN 
IE TICLE LEONI IGS CUDSL EIR COMDLEUE, TENCE GD <C Then 
RCN TE EEOC ESE STOTT KC MOLECULE 
RIECERLIEXEEBOXl SELECT LORNLEENGTLRI 2S SLE Length 
Eu MIERLEBCOSlITElECEEI TET OEE 
E Eo 
EN IT 
MSE 


ا 


نقوم بإدخحال قيمة النص المراد استبداله» وقيمة النص الجديد» تم نبدأً عملية البحث وعندما نحد النص المطلوب» 


نقوم بتعويضه بالنص الجحديد بالإعتماد على الدالة خ×ه۲إعاعماع؟. 
شفرة تحديد ل :Sélectionner tout‏ 


ETI SU Diler CEI OMSL EMC LLC MET Alu SERIE E 
SST EeEM OB ECE Eval ECVE EEDIEUENLAEGS NY Handles 
Date HEEE TOS L SEET GOMER EEC LEE 


Mez Rikah Test BOSSA Se keg EAMG) 


EN Eb 


شفرة الوقت/ التاريخ :Heure/Date‏ 
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Eri UE TS ULEDILGTOOLSEEIGMONULT EMD CLIC EV SLE ENIEE RS 
SST EMODNECE EVSAL GEG ES CVS EVEN LATS HENO LES 
Heke Dal STOO MEE OMER TEES CIEE 


Me.RichTextBoxl1.SelectedText = Date.Now.ToString 


e le 


الآن انتهينا من القائمة ٢ه‏ اك٤‏ » وسننتقل إل القائمة الشكل اة٣۲ه۴:‏ 


Fichier Edition Affichagd ? 
Retour automatique ã la line 
Police 
oul 


ûrriêre plan 
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ولا قم بتحديد القائمة الفرعية» ومن نافذة الخصائص اختر الخصيصة ١‏ )ء٥٠‏ واعطها القيمة ۵ا٣آ»‏ حي 


تصبح هذه القائمة قابلة للتحديد كما ف المثال أعلاه. 
فيما بخص الشفرة قم بالإعلان عن متغير منطقي Boole‏ ت حیز الإعلانات ولیکن امه مثلا ا80 : 


airs lt Ar Sia BDL alta HSS 


شفرة رحو ع تلقائي إل السطر :Retour automatique èã |a ligne‏ 


Private Sub RetourAutomatiqueALaLigneToolStripMenuItem Click (ByVal 
Séendér AS SYVSsLtem: Object, ByVal € As SyVSstem.EventArGgs)y: Handles 
EUNICE ICT CL CIE CM CIC 


TE Bgl 3 True Then 
ااا ا0 ا ا ال اة هلا ا تاا اه هه ا اة‎ 
ME RICHNIExXTEOXLl  WOEIWNEAS = TEES 
Bol = False 

Else 
ا0 ا د ا ا ا لا ا ها 1ه ا ا ا‎ 
Me.RichTextBox1.WordWrap = False 
Bol = True 

IE 


ES CMe 
كما ترى نتحقق من قيمة المتغير اه8 مائذا كانت تساوي عنع)» فإن تحقق الشرط جعلنا القائمة الفرعية حددة‎ 
الى تسمح بالرحوع التلقائي إلى السطر و جعلنا قيمة المتغير‎ wordrap ةيصlۍÈ|‎ lz, (Checked=true) 


.False المنطقي‎ 
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أما إن كانت قيمة المتغير اه8 تساوي عءاه۴ وهذا هو الشرط الصحيح » فسنلغي تحديد القائمة الفرعية» ونلغي 


خحاصية العودة إلى السطر تلقائيا ونغير قيمة اه8 إلى ع٥ں٣1.‏ 


أي أننا نغير قيمة الرحو ع إلى السطر حسب قيمة المتغير المنطقي الذي يتغير عند كل ضغطة ءأاZ»‏ هذه التقنية 
تستعمل بكثرة قي عمليات التحقق من العمليات المراد القيام ياء وهي سهلة ي مضموما ولا تتطلب منك 


هرق الام جلا اا 


شفرة تغيير الخط ععااهم: 


ELI vate SNS POLICETOOLSETIGMETULEEM CLICKEE Tl CENGE 
SVSTEM ODI ECE, Eval E KS SVS LEMLEVENLATGS) Handles 
Nelo SNe SSS OME O ESN ON oc 


LETE SHOVDIaLEOG NIDA OS EOE Dial oOORESULEA ORS Then 


Mer Riche BO Sele EIGN EORE EOL EOE 
WINGO J 


ER Cub 


إن كنت تتذكر الكائن ۴١‏ الذي قمنا بالإعلان عنه في أول الدرس من نوع عهاهiكة١ه۴‏ » وهو المسؤول عن 


نافذة تغيير الخطوط وخحصائصها.فالآن حان دوره. 
نقوم بفتح نافذة الخطوط ونغیر حط النص احدد ٣۴٥٣٤‏ ٥آاcمامS‏ حسب اختیار المستخدم 0۸۲ .۴d.۴‏ 
شفرة تغيير اللون 0۲اه : 


وهي مماثلة لكود تغيير الخط» مع تغيير كائن الخط بكائن اللون C4‏ الذي سبق أن أعلنا عنه من نوع 


:ColorDialog 


arabICc oran 


CRIES UE CoulEUTTOOIL LLIN CLIC LC EE 
SST EemM. ODIECT, E al GEG FS SGuStEMEvEeENLATGS) Hancles 
Couleur ToolS EIGER UILLEM Click 


TE CA SHO DLA LO GE IRO SEO EMS Da lO GRE SUT OR Then 
MET iERTESTEBOS I SELECTOR ONG GEE CEI COLO 
n OE 


El uD 


شفرة تغيير لون الخلفية ٤٣٤ا٣٣A:‏ 


LIES U RATLLICL TLIRTOOL CTI MDL CEMAL CE RL EET ES 
| SYST eM OBI ECE, EVVALl E KS SGVSTEMIEVENTLATGS) Handles 
| AE LETE E LT GSS LG MOMS EEC EE 
TE CG Sho Dial oa Simo SEO Dia LoS ReE SULT OE Then 
Mez Rie Rex Ba EBE KE Sle CE Ce EOE 
EA SIE 


Te Cle 


Fo rrr 1 
Fichier Edition 


Lines: MoE=s: 
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القائمة الفرعية الى نحن بصدد إنشائها الآن هي الي تتحكم فيما يظهر ق هذه الصورة: 


= 
HS) Formî 


Fichier Edition Format Affichage ? 


mode êéchoue., 

Mais revenons ã l'étude de l'état normal. Il faut distinguer les suggestions de sensations et d'idêes et les 
suggestions d'actes; ces dernières sont toujours difficiles ã rêaliser, car elles impliquent d'une part 
commanderment et d'autre part obéissance, et il est bien vrai qu'un ordre donné sur un ton autoritaire a quelque 
chose d'offensant qui excite un sujet ã la résistance, Il ¥ aurait donc lieu d'imaginer une Forme d'expérience un 
peu différente de celle de Sidis, 

Lin petit dêtail, assez insignifiant en apparence, est ã relever dans les descriptions de cet auteur, Avant de 
donner sa suggestion, dit=il, il avait soin d'engager la personne ã regqarder un point fixe pendant vingt 
secondes, Il ne dit pas pourquoi il a employé cette Fixation du regard, ni si les sujets qui n'avaient pas eu soin 

de regarder Fixement un point étaient plus suggestibles que les autres, Je pense que cette pratique, qUi rappelle 
beaucoup le procédé de Braid pour hypnotiser, devrait être êtudiêe avec soin dans ses conséquences 
psycho=—physiologiquesCette Formule présente une nettetê très curieuse, mais nous doutons qu'elle soit absolument juste, 
ekl puisse 

conyvenir ã tous les cas, Ce qui me paraît entiêrement vrai, c'est que la résistance du sujet peut Faire échouer les 
suggestions directes, Cette cause d'échec est moins ã craindre pendant l'état d'hypnotisme, mais elle n'y 
subsiste pas moins, ek je me rappelle plus d'un sujet rebelle qui ã mis dans un grand embarras son opérateur: 

un jour que Charcot montrait quelques -unes de ses hypnotisées ã des étrangers, il voulut Faire écrire ã une 
d'elles une reconnaissance de dette égale ã un million; 'énormité du chiffre provoqua de la part de 

'hypnotisée une résistance invincible, et pour la décider ã donner sa signature il Fallut se borner ã lui Faire 
souscrire une dette de cent francs. D'autre part, j'ai bien constaté que pendant l'état d'hypnotisme, les 
suggestions données sous une forme indirecte sont très effectiyes; au lieu de dire ã une malade rebelle: «Yous 
allez vous lever!» on obtient un effet qui quelquefois est plus sûr, en se contentant de dire èù demi—voix ã un 
assistant: «Je crois qu'elle va se lever.» Suivant les circonstances, tel mode de suggestion réussit et tel autre 
mode échoue., 

Mais revenons ã l'étude de état normal, Il faut اليا ي‎ les suggestions de sensations et d'idêes et les 


ولعمل ذلك سنذهب إلى علبة الأدوات» وسنقوم بإضافة أداة تسمی ما٣‏ کو ں هک ثم من خلاها نضيف 


لحان كما رئ ى الشکر اسفاه: 
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EE Form1 -. HAK 
Fichier Edition Format Affichage ? 


س ساسا ا ا و 
fe) RadioButton‏ 

“4 RichTextBox 

*^| SaveFileDialog 
7 SerialPort 

ãl ServiceController 
[] splitcontainer 


TrackBar 
3 Treeview 
* YSerollBar 


+ Contröles communs 


+l Conteneurs - 

F1 Menus et barres d'outils ۱ : 

3 Dannêes 9 StatusLabel 

+l Compaosants : PrograssBar 

= Impression = | DropDownButton 

+i Boîtes de dialogue triD1 
[I=]| SplitButton E: 


+ Interopêrabilitê ¥YPF 


ولا ننسى أن ننبهك إلى أنه عليك تغيير حاصية القائمة الفرعية †ة†d'6 82e‏ المسؤولة عن التحديد Checked‏ 


وجعلھا عu٣اآ.‏ 


بعد ذلك اضغط على مربع النص مرتين أي في الحدث 4عع” ٣×٤2‏ واكتب الشفرة التالية: 


Private CUR RICHIE EEOKICTESTCRNANGECIEYTEL Sender AS SVSEEMIODIECT BV LLE S 
SYSTEM. EVENTATEGOS) Handles RICHNTESTBOXlTeExTCHanded 


LOOSEN OSEAEUSLaABE LI TERE Lone ME RLCRTExXEBOR lL mes Len GÊ Û 


ToolStripStatusLabel2.Text = "Lettres: " & Me.RichTextBoxl.Text.Length 


WMC SUIO 
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1. الأول يقوم بطباعة عدد أسطر مربع النص على الخانة الأولى من شريط الحالة. 


2. الثاني يقوم بطباعة عدد الأحرف المكتوبة على الخانة الثانية. 


الشفرة التالية: 


Private Sub BarreDétatToolStripMenulIltem Click (ByVal sender As 
SVUSLEMIODTECTj BVA GE SE SVSLEDMTEVENTATOS TT HINO lEEgE 
Ear FEDEI IT TooOlSIEIGMeENUIlEM CICK 


TE EOL l= Trice Ther 
ME EarrtcDElaALTCIL LINCOM NULL Mm ChE CEG 
Mo TOUS EEIOL ULSD SS Tre 
Me. Rich lextEOxXl.Heloht = 408 
Bol O SEALE 
ELLSe 
ME Eo rTEDELACTOCI SETI OMEN ULT EM Checked 
Me. STaluUSSLELCLVISIbDlEe < TaAlse 
Me. FKichlezxTtEOoxXl.HElORNL — 4209 
Boll = True 
ERA ILE 


EAL Cl 


إنه شبيه بالأوامر الي رأيناها سابقا في خحاصية الرحو ع التلقائي إلى السطر» مع الإحتلاف البسيط الحاصل» 
بحيث نقوم بإظهار وإحفاء شريط الحالة بواسطة الخاصية هاطاو/ا» كما نقوم أيضا بتغيير طول مربع النص 
حسب حالة شريط الحالة» بحيث إذا احتفى نزيد ثي طوله وإذا ظهر نعود إلى الطول الأصلى ويمكنك معرفة 


قيم الطول من خلال نافذة الخصائص بعد تحديد مربع النص. 


لم يتبق لنا اللآن سوى القائمة الأخحيرة مساعدة هلأ۸: 


o. 


- 


4 
. arabic formation 
اضغط مرتين على القائمة الفرعية ..5مم٠۲م ۸ واكتب الشفرة التالية:‎ 
FEIVaEëS Sub AProposToolStripMenuItem Click (ByVal sender As System.Object, 
BT TB E E E E GG CE TT MG CT 
MsGBOSCEeE Ee a êke ai ORs e Su Eéa lk sée si eT BG ESLE ME DOOD) 
me e Sle 
عند اأضةط ستحصل على الرسالة التالية:‎ 
ا‎ NotePad 
| 
[ wektte application est rêalisêe : 
E HERE RNN 
ا[‎ 
| 
هنيغا لك أحي لقد انتهينا من المهمة الرئيسية ولم يتبق لنا سوى إضافة تعديلات بسيطة» كبعض القوائم ال‎ 
غالبا ما بجدها ق البرامج الشهيرة.‎ 
:ToolIStrip القائمة‎ 
e أ‎ BB ۳ 98 | 2 8 9 0 0 
اط ك هدکهد لقائمة 1 دشا الله‎ 
4 
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( ا 


قم بسحبها من عابة الأدوات إلى الفورم» واضغط على السهم المتواحد أقصى الأداة واحتر أمر إضافة العناصر 


الإإفتراضية: 


El Form1 5 ize 
Fichier Edition Format Affichage ك ر‎ 


SS Incorporer dans ToolStripContairver‏ ب 


| Insêrer des êélêrments standard 


cripStyle _ [visible ml 


ا 
Modifier les élêrmenıts... |‏ 


لاحت اتخة الآ اعيو 
الا ختوراحست وق 


Lianes: Lettres: 


سترى بعد الضغط إضافة بجحموعة من الأزرار اعتدت رؤيتها قي برامج ميكروسوفت. 


I BLC Pad 


Edition ForrnakE 


ToolSEripSEaEuIsLabel1]  ToolSEripSEaEusLabelz 


arabic formation 


لا تخف فلن نضطر إلى إعادة كتابة الكود كاملا سنقوم فقط بالنداء على الشفرات السابقة» أي هكذا: 


شفرة ملف جدید 2uع‌uvهN:‏ 


Trivial COD OuUGEIUTG MOC DEUET OC LICCOE Al Ono 
SUS EKEM OBI EGET EVSAL EGE PE OVS EEM I EVENLAEOS Ham lES 
NEM ESTOS L SE RI GEE OM CINI 


NouveauToolStripMenuItem Click (sender, e) 


a e Se 


وهكذا مع باقي الأزرار الأحرى» بالمناسبة ٣هل"‏ مء هو الكائن الذي نطبق عليه الحدث وهنا هو زر الفتح» و 


المعامل م هو الحدث وهنا هو الضغط ععاا>. 


بعد الإنتهاء من كل الأزرار» سنقوم بإضافة قائمة حديدة تنسدل عند الضغط على الزر الأععن من الفأرةء أي 
شبيهة بمذه: 


Annular 

I_DIUpEF 

_Dpier 

aller 

SU pprimer 
sSêlectionner tout 


Lecture de droite ã qauıchEë 
Afficher las caractêres de contrûle LInicode 


Insêrer un caractêre de contrûle LInicodE ۴ 


:ContextMenuStrip Janت‎ ةnئlقll هذه‎ 
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قم بالبحث عنها قي علبة الأدوات ثم احذجا إلى الفورم» تم أضف إليها المهام التالية: 


SLUBGpGrF IEF 


SE lec EijaonnEr EOE 


LeEcZELFE Ade Aroita ã Qa ır he 


. حدد مربع النص واذهب إلى نافذة الخصائص وضع قي الخاصية ContextMenuStrip‏ اwم‏ الأداة الى قمنا 


.ContextMenuStrip1 ي‎ «lذح‎ 


وسنقوم بنفس المهمة السابقة» بحيث سنقوم فقط بالمناداة على الشفرات السابقة» ماعدا الأمر الأحير ع۲ u†ءم]‏ 


de droite ù gauche‏ فعليك الضغط عليه مرتين و إضافة الشفرة التالية: 


PELVATS SU LectureDeDroiteÃAGaucheToolStripMenuItem Click (ByVal sender As 
System. OD ject, ByVal 6e As System.EventArgs) Handles 
E IIE EG KCI TNC Clik 


If Bool = True Then 
E TED DIC ETC ML TO o TC 
Gauche a droite" 
E TCD CITC MN ICE FTES 
Me. RichTexTBOxXlI. RightToLeft = Windows. Eorms<Right ToLeftE-.No 
Me.ContextMenuStrip1.RightToLeft = Windows.Forms.RightToLeft.No 
Bool = False 
Else 
ا ا ا اا ا 0 ا اا ا ا ا ا ا‎ N ا‎ 
droite ã gauche" 
lle Te ci ure DELO CACC hE ToGI ITT MTU Cec kéd re 
ME. CONLEXIMENUSTLTISLCRIGHI TOLE < WINIOWSLEOLMSEINILTOLETL NO 
RIchlexlLEOxXl.RighLloLlLefl = Windows. EoOrmMmSs.RighlETloLeft. Yes 
Bool = True 
ENA TE 
EID 
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نفس طرق التحقق الي رأيناها سابقاء زيادة على بعض الخصائص الحديدة مثل ٥1٥۴‏ ع8 الي تتحكم ي 


انحا lلنصض lectureDeDroiteAGaucheToolStripMenultem.1ext j‏ الي تتحكم في نص القائمة. 


أوشكنا على النهاية يا أحى الفاضل» سنضيف فقط هذه الشفرة بعد الضغط مرتين على الأداة 


:ContextMenuStrip1 Opening ای ف |د‎ ContextMenuStrip 


PEI VATE UBCCONEESIMENUSEEIDIROBERERONEV El GENIE AR OVE LEMSOD IEEE BY 
e As System.ComponentModel.CancelEventArgs) Handles ContextMenuStripl. Opening 


TT RICHITELTBOKlL TET = SITING EMEBLY Then 
AnnulerToolStripMenulteml1.Enabled = False 
CouperToolStripMenulteml.Enabled = False 
COPBpiErTIOOISEEICMenulteml Enabled = salse 
SuporimerTOoOGLSTEIGMernulLEemMlI.ENnabled = Halse 

Else 
AnnulerToolStripMenulteml1.Enabled = True 

MMC J 

TE RICHIE TBOSIL SELECT ISHLERNGOTN <S O Then 
AnnulerToolStripMenulteml1.Enabled = True 
COUDEETOSLSTEIGMeNuULI el ERablEd > TiuUe 
CopierToolStripMenulteml1.Enabled = True 
SupprimerToolStripMenulteml1.Enabled = True 

ETL 


MCL SU 


هذه الشفرة تتحكم في تفعيل وإلغاء القوائم حسب حالة النص» فمثلا لا بمكن تفعيل القائمة ١٠م‏ والنص 
غير محدد.وهكذا مع باقي الحالات. 


بقى فقط ملاحظة وحيدة: 
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نرجو من الله العلي القدير أن نكون قد وفقنا في أداء المهمة على أحسن وجه» ونتمن أن يكون هذا العمل 
لمتواضع قد أضاف إليك يا أحي الكرم ويا أحيَ الكرعة شيغا من المعلومات» ولا تنسوا أما الخطوة الأولى 


وما زال لنا معكم إن شاء الله حطوات» وني كل حطوة سنحاول أن نرفع من مستوياتنا. 


في انتظار الخطوة الثانية من هذه السلسلة الضمنية "حطوة إلى الأمام" التابعة لسلسة "كن أسدا". تقبلوا منا 
از کی الشکر» ولا تنسونا ووالدینا وکل المسلمین من صالح دعائکم» کما لا تنسونا من انتقاداتكم 
وتساؤلاتكم» وسنسعى قدر المستطاع إلى إحابتكم والأحذ بنصائحكم» وللمراسلة هذا عنواننا الإلكترون: 


Khalid ESSAADANI@Hotmail.fr 


اعذرون على التكلم بصيغة الجمع فلا أحب قول: "أنا" 


